SET QUOTED_IDENTIFIER ON
GO
SET ANSI_NULLS ON
GO
CREATE PROC [dbo].[SP_TXMVTO_CNTB_I50]   
/*-------------------------------------------------------------------*/      
/*----- Empresa           : OFISIS S.A.                          ----*/      
/*----- Cliente           : OFISIS S.A.                          ----*/      
/*----- Sistema           : Contabilidad                         ----*/      
/*----- Modulo            : Empresa                              ----*/      
/*----- Programa          : Ajuste por redondeo Por Unidad       ----*/      
/*----- Nombre            : SP_TXMVTO_CNTB_I50                   ----*/      
/*----- Script            : TXMVTO_CNTB                          ----*/      
/*----- Desarrollado por  : percy garcia                         ----*/      
/*----- Fecha             : 26/10/2006                           ----*/      
/*----- Base de Datos     : MS SQL Server                        ----*/      
/*----- Version BD        : 2005                                 ----*/      
/*-------------------------------------------------------------------*/      
/*-------------------------------------------------------------------*/          
/*----- Drop proc SP_TXMVTO_CNTB_I50                             ----*/      
/*----- Grant all on SP_TXMVTO_CNTB_I50 to PUBLIC                ----*/      
/*----- EXEC SP_TXMVTO_CNTB_I50 '01', 'OFISIS', '10/26/2006', 1, 2006, 2, 0.5 ----*/      
/*-------------------------------------------------------------------*/  
@ISCO_EMPR      TD_VC_002,  
@ISCO_USUA      TD_VC_008,  
@IDFE_USUA      TD_DT_001,  
@INNU_CNTB_EMPR TD_IN_001_CONT,  
@INNU_ANNO      TD_IN_004_ANNO,  
@INNU_MESE      TD_IN_002_MESE,  
@INNU_FACT      TD_NU_009_004  
  
As  
Declare       
@VSCO_MONE_CNTB TD_VC_003,      
@VSNU_ASTO      TD_VC_010,      
@CNIM_DEBE TD_NU_016_004,       
@CNIM_HABE TD_NU_016_004,      
@VDFE_ASTO_CNTB TD_DT_001,      
@VNNU_SECU TD_IN_002,      
@VSID_GANA_REDO TD_VC_003,      
@VSID_PERD_REDO TD_VC_003,      
@VSCO_CNTA_GANA TD_VC_020_CNTA,      
@VSCO_CNTA_PERD TD_VC_020_CNTA,      
@VNTO_SALD TD_NU_016_004,      
@CDFE_DOCU_VENC TD_DT_001,      
@VNFA_CAMB_DIAR TD_NU_015_006,      
@CDFE_DOCU_REFE TD_DT_001,      
@VNNU_PROC TD_IN_001,      
@VNNU_PROC_SECU TD_IN_001,      
@VSST_CNTA_NATU TD_VC_003,      
@CSSI_MVTO_CNTB TD_VC_003,      
@VSST_AUXI_EMPR TD_VC_001,      
@VSTI_AUXI_REGA TD_VC_001,      
@VSCO_AUXI_REGA TD_VC_020,      
@VSTI_AUXI_REPE TD_VC_001,      
@VSCO_AUXI_REPE TD_VC_020,   
      
-------  
@CSCO_CNTA_EMPR TD_VC_020,  
@CSTI_AUXI_EMPR TD_VC_001,  
@CSCO_AUXI_EMPR TD_VC_020,  
@CSTI_DOCU      TD_VC_003,  
@CSNU_DOCU      TD_VC_020,  
@CNTO_SALD      TD_NU_016_004,  
@CDFE_DOCU      TD_DT_001,  
@CSCO_UNID_CNTB TD_VC_003,   
@CSCO_OPRC_CNTB TD_VC_003,   
@CSNU_ASTO TD_VC_010,  
@VSCO_OPRC_CNTB TD_VC_003,  
@VSTI_OPER_0001 TD_VC_003,  
@VSTI_OPER_0002 TD_VC_003,   
@CSCO_MONE      TD_VC_003,   
@CDFE_ASTO_CNTB TD_DT_001,  
@VSCO_CNTA_0001 TD_VC_020,  
@VSTI_AUXI_0001 TD_VC_001,  
@VSCO_AUXI_0001 TD_VC_020,  
@CDFE_PAGO      TD_DT_001,  
@VSTI_AUXI_CLIE TD_VC_001,  
@VSTI_AUXI_PROV TD_VC_001,  
@VSID_COMP TD_VC_003,   
@VSID_VENT TD_VC_003,   
@VNNU_CANC TD_IN_001  
  
Create Table #TWDOCU_APAI  
(CO_CNTA_EMPR  Varchar(20) NULL,   
 TI_AUXI_EMPR   Varchar(1) NULL,  
 CO_AUXI_EMPR   Varchar(20) NULL,  
 TI_DOCU        Varchar(3) NULL,  
 NU_DOCU        Varchar(20) NULL,  
 CO_MONE        Varchar(3) NULL,  
 FE_DOCU        DateTime NULL,  
 FE_DOCU_VENC   DateTime NULL,  
 FE_PAGO        DateTime NULL,  
 IM_SALD        Numeric(16,4) Null,  
 CO_UNID_CNTB   Varchar(3) Null,  
 CO_OPRC_CNTB   Varchar(3) Null,  
 NU_ASTO        Varchar(10) Null)  
      
/* Selecciona lAs cuenta de Ganacia y Perdida */      
--- Inicializar-------------      
 Select @VSTI_AUXI_REGA = Null      
 Select @VSCO_AUXI_REGA = Null      
 Select @VSTI_AUXI_REPE = Null      
 Select @VSCO_AUXI_REPE = Null      
     
 Select  @VSCO_MONE_CNTB = CO_MONE,  
 @VSID_COMP = ID_COMP,  
 @VSID_VENT = ID_VENT,   
 @VSID_GANA_REDO = ID_GANA_REDO,      
 @VSID_PERD_REDO = ID_PERD_REDO  
 From TTCNTB_EMPR      
 Where CO_EMPR = @ISCO_EMPR   
 And NU_CNTB_EMPR = @INNU_CNTB_EMPR      
      
 Select @VSST_AUXI_EMPR = 'N'      
      
 Select @VSCO_CNTA_GANA = t1.CO_CNTA_EMPR,      
 @VSST_AUXI_EMPR = t2.ST_AUXI_EMPR      
 From TTIDEN_CNTA t1, TMPLAN_ANNO t2      
 Where  t1.CO_EMPR = @ISCO_EMPR       
 And     t1.NU_CNTB_EMPR = @INNU_CNTB_EMPR       
 And     t1.ID_CNTA = @VSID_GANA_REDO      
 And     t2.CO_EMPR = t1.CO_EMPR      
 And     t2.CO_CNTA_EMPR = t1.CO_CNTA_EMPR      
      
 If @VSST_AUXI_EMPR = 'S'      
 Begin      
  Select @VSTI_AUXI_REGA = TI_AUXI_REGA,      
         @VSCO_AUXI_REGA = CO_AUXI_REGA      
  From   TMPARA_CONT      
  Where  CO_EMPR = @ISCO_EMPR       
End      
      
Select @VSST_AUXI_EMPR = 'N'      
      
Select @VSCO_CNTA_PERD = t1.CO_CNTA_EMPR ,      
       @VSST_AUXI_EMPR = t2.ST_AUXI_EMPR      
From TTIDEN_CNTA t1, TMPLAN_ANNO t2      
Where  t1.CO_EMPR = @ISCO_EMPR       
And     t1.NU_CNTB_EMPR = @INNU_CNTB_EMPR       
And     t1.ID_CNTA = @VSID_PERD_REDO      
And     t2.CO_EMPR = t1.CO_EMPR      
And     t2.CO_CNTA_EMPR = t1.CO_CNTA_EMPR      
      
If @VSST_AUXI_EMPR = 'S'      
Begin      
  Select @VSTI_AUXI_REPE = TI_AUXI_REPE,      
         @VSCO_AUXI_REPE = CO_AUXI_REPE      
  From   TMPARA_CONT      
  Where  CO_EMPR = @ISCO_EMPR       
End      
  
Begin Transaction SP_TXMVTO_CNTB_I50      
  
---ELIMINA asientos de ajuste doc generados previamente  
Delete From TXMVTO_CNTB   
Where CO_EMPR = @ISCO_EMPR   
And NU_CNTB_EMPR = @INNU_CNTB_EMPR   
And NU_ANNO = @INNU_ANNO  
And NU_MESE = @INNU_MESE  
And ST_AJUS_ORIG = 'S'  
  
 If @@ERROR != 0      
   Begin       
    Rollback Transaction SP_TXMVTO_CNTB_I50      
    Return      
   End      
  
-- extrae los documentos que tienen saldo en d?lares y cuyo saldo sea menor al valor de redondeo  
Insert Into #TWDOCU_APAI(CO_CNTA_EMPR, TI_AUXI_EMPR, CO_AUXI_EMPR, TI_DOCU, NU_DOCU, CO_MONE,  
FE_DOCU, FE_DOCU_VENC, FE_PAGO, IM_SALD, CO_UNID_CNTB, CO_OPRC_CNTB, NU_ASTO)  
Select t1.CO_CNTA_EMPR, t1.TI_AUXI_EMPR, t1.CO_AUXI_EMPR, t1.TI_DOCU, t1.NU_DOCU, t1.CO_MONE,  
Max(FE_DOCU), Max(FE_DOCU_VENC), Max(FE_PAGO),  
Isnull(SUM( ROUND((PATINDEX(t1.TI_OPER, 'CAR')*Isnull(t1.IM_MVTO_ORIG, 0)),2) ), 0) -  
Isnull(SUM( ROUND((PATINDEX(t1.TI_OPER, 'ABO')*Isnull(t1.IM_MVTO_ORIG, 0)),2) ), 0),   
SUBSTRING(T5.ASIENTO, 1, 3), SUBSTRING(T5.ASIENTO, 4, 3), SUBSTRING(T5.ASIENTO, 7, 10)  
From TXMVTO_CNTB t1, TMPLAN_ANNO t2, (Select T3.CO_CNTA_EMPR, T3.TI_AUXI_EMPR, T3.CO_AUXI_EMPR, T3.TI_DOCU,   
   T3.NU_DOCU, MAX(T3.CO_UNID_CNTB + T3.CO_OPRC_CNTB + T3.NU_ASTO) AS ASIENTO  
   From TXMVTO_CNTB T3, TMPLAN_ANNO T4  
   Where T3.CO_EMPR = @ISCO_EMPR  
   And T3.NU_CNTB_EMPR = @INNU_CNTB_EMPR  
   And (T3.CO_OPRC_CNTB NOT IN (SELECT CO_OPRC_CNTB FROM TTIDEN_OPER  
          WHERE CO_EMPR = @ISCO_EMPR  
          AND NU_CNTB_EMPR = @INNU_CNTB_EMPR  
          AND ID_OPRC IN (@VSID_COMP, @VSID_VENT))   
         OR(Exists(  Select T6.CO_OPRC_CNTB      
                    From TTIDEN_OPER T6, TTTIPO_COPA T7  
                    Where T6.CO_EMPR = T3.CO_EMPR  
                    And T6.NU_CNTB_EMPR = t3.NU_CNTB_EMPR  
                    And T6.ID_OPRC IN (@VSID_COMP, @VSID_VENT)      
                    And T6.CO_OPRC_CNTB = t3.CO_OPRC_CNTB    
                    AND T6.CO_EMPR = T7.CO_EMPR    
                    AND T7.TI_COMP_PAGO = t3.TI_DOCU ))  
        OR (Exists(  Select T6.TI_DOCU  
                         From TTDOCU_CNTB T6  
                                       Where T6.TI_DOCU = t3.TI_DOCU  
                                       And T6.ST_CXPA = 'S'  
                                       And T6.ST_CXCB = 'N')   
         And   
         Exists ( Select T6.CO_OPRC_CNTB    
                                       From TTIDEN_OPER T6  
                                       Where T6.CO_EMPR = t3.CO_EMPR  
                                       And T6.NU_CNTB_EMPR = t3.NU_CNTB_EMPR  
                                       And T6.ID_OPRC IN (@VSID_COMP, @VSID_VENT)    
                                       And T6.CO_OPRC_CNTB = t3.CO_OPRC_CNTB  )  
        ) )  
   And T3.NU_ANNO = @INNU_ANNO  
   And T3.NU_MESE = @INNU_MESE  
   And T3.SI_MVTO_CNTB =  'APR'  
   And T3.ST_DIFE_CAMB = 'N'  
   And T3.NU_PROC = 0  
   And t4.CO_EMPR = t3.CO_EMPR   
   And t4.CO_CNTA_EMPR = t3.CO_CNTA_EMPR   
   And t4.CO_MONE = @VSCO_MONE_CNTB  
   And t4.TI_AUXI_EMPR IS NOT NULL  
   And t4.TI_DOCU_CNTB IS NOT NULL  
   Group By T3.CO_CNTA_EMPR, T3.TI_AUXI_EMPR, T3.CO_AUXI_EMPR, T3.TI_DOCU, T3.NU_DOCU) T5  
Where t1.CO_EMPR = @ISCO_EMPR  
And t1.NU_CNTB_EMPR = @INNU_CNTB_EMPR  
And t1.NU_ANNO = @INNU_ANNO  
And t1.NU_MESE <= @INNU_MESE  
And t1.SI_MVTO_CNTB =  'APR'  
And t2.CO_EMPR = t1.CO_EMPR   
And t2.CO_CNTA_EMPR = t1.CO_CNTA_EMPR   
And t2.CO_MONE = @VSCO_MONE_CNTB  
And t2.TI_AUXI_EMPR IS NOT NULL  
And t2.TI_DOCU_CNTB IS NOT NULL  
And T1.CO_CNTA_EMPR = T5.CO_CNTA_EMPR  
And T1.TI_AUXI_EMPR = T5.TI_AUXI_EMPR  
And T1.CO_AUXI_EMPR = T5.CO_AUXI_EMPR  
And T1.TI_DOCU = T5.TI_DOCU  
And T1.NU_DOCU = T5.NU_DOCU  
Group By t1.CO_CNTA_EMPR,t1.TI_AUXI_EMPR,t1.CO_AUXI_EMPR,t1.TI_DOCU,t1.NU_DOCU,t1.CO_MONE, T5.ASIENTO  
Having Abs(Isnull(SUM( ROUND((PATINDEX(t1.TI_OPER, 'CAR') * Isnull(t1.IM_MVTO_ORIG, 0)),2) ), 0) -  
Isnull(SUM( ROUND((PATINDEX(t1.TI_OPER, 'ABO') * Isnull(t1.IM_MVTO_ORIG, 0)),2) ), 0)) <= @INNU_FACT And   
Abs(Isnull(SUM( ROUND((PATINDEX(t1.TI_OPER, 'CAR') * Isnull(t1.IM_MVTO_ORIG, 0)),2) ), 0) -  
Isnull(SUM( ROUND((PATINDEX(t1.TI_OPER, 'ABO') * Isnull(t1.IM_MVTO_ORIG, 0)),2) ), 0)) > 0  
  
Select @VSTI_AUXI_CLIE = IsNull(CO_TIAU_CLIE, ''), @VSTI_AUXI_PROV = IsNull(CO_TIAU_PROV, '')              
From TMPARA_TESO              
Where CO_EMPR = @ISCO_EMPR               
  
Declare CU_TXMVTO_CNTB_I50_1 Cursor  
For   
Select t1.CO_CNTA_EMPR, t1.TI_AUXI_EMPR, t1.CO_AUXI_EMPR, t1.TI_DOCU, t1.NU_DOCU, t1.CO_MONE,  
t1.FE_DOCU, t1.FE_DOCU_VENC, t1.FE_PAGO, t1.IM_SALD, t1.CO_UNID_CNTB, t1.CO_OPRC_CNTB, t1.NU_ASTO  
From #TWDOCU_APAI t1  
  
Open CU_TXMVTO_CNTB_I50_1      
Fetch CU_TXMVTO_CNTB_I50_1 Into @CSCO_CNTA_EMPR, @CSTI_AUXI_EMPR, @CSCO_AUXI_EMPR, @CSTI_DOCU, @CSNU_DOCU,   
@CSCO_MONE, @CDFE_DOCU, @CDFE_DOCU_VENC, @CDFE_PAGO, @CNTO_SALD, @CSCO_UNID_CNTB, @CSCO_OPRC_CNTB, @CSNU_ASTO  
While @@Fetch_status = 0      
Begin      
  
---- SE LLAMA UN STORE PROCEDURE QUE DEVUELVE SI EL DOCUMENTO ESTA CANCELADO O NO,PORQUE EN CONTA NO   
---- SE PUEDE IDENTIFICAR QUE ASIENTO ES EL QUE CANCELA TOTALMENTE EL DOCUMENTO ,   
---- PUES TESO NO GRABA EL CAMPO ST_CANC_DOCU EN LA TXMVTO_CNTB  
Select @VNNU_CANC = 0  
Select @VSCO_OPRC_CNTB = NULL  
Select @VSNU_ASTO = NULL  
Select @VDFE_ASTO_CNTB = NULL  
Select @VNNU_PROC = NULL  
Select @VNNU_PROC_SECU = NULL  
  
--- DEVUELVE EL ASIENTO Y LA UNIDAD DEL ASIENTO  
Exec SP_TXMVTO_CNTB_Q51 @ISCO_EMPR, @CSTI_AUXI_EMPR, @CSCO_AUXI_EMPR, @CSTI_DOCU, @CSNU_DOCU, @VSTI_AUXI_CLIE,   
@VSTI_AUXI_PROV, @VNNU_CANC OUT  
  
--- solo graba lineas en asiento si es que la variable que retorna el store tiene valor   
--- lo que significa que hay una cancelacion total   
If @VNNU_CANC > 0  
Begin   
  Select @VSCO_OPRC_CNTB = @CSCO_OPRC_CNTB  
  Select @VSNU_ASTO = @CSNU_ASTO  
  
  --- OBTIENE EL SIGTE SECUENCIAL PARA GENERAR LA LINEA EN EL ASIENTO  
  Select @VNNU_SECU = IsNull(Max(NU_SECU),0) + 1, @VDFE_ASTO_CNTB = Max(FE_ASTO_CNTB),  
         @VNNU_PROC = Max(NU_PROC),     @VNNU_PROC_SECU = Max(NU_PROC_SECU),  
         @VNFA_CAMB_DIAR = Max(FA_CAMB_DIAR)  
  From TXMVTO_CNTB   
  Where CO_EMPR = @ISCO_EMPR   
  And NU_CNTB_EMPR = @INNU_CNTB_EMPR   
  And CO_UNID_CNTB = @CSCO_UNID_CNTB  
  And CO_OPRC_CNTB = @VSCO_OPRC_CNTB  
  And NU_ANNO = @INNU_ANNO  
  And NU_MESE = @INNU_MESE  
  And NU_ASTO = @VSNU_ASTO  
  
If @CNTO_SALD > 0 -- CARGO > ABONO --- perdida  
 Begin   
   Select @VSTI_OPER_0001 = 'ABO'  
   Select @VSTI_OPER_0002 = 'CAR'  
   Select @VSCO_CNTA_0001 = @VSCO_CNTA_PERD  
   Select @VSTI_AUXI_0001 = @VSTI_AUXI_REPE  
   Select @VSCO_AUXI_0001 = @VSCO_AUXI_REPE 
 End   
Else -- CARGO < ABONO --- ganancia  
 Begin   
   Select @VSTI_OPER_0001 = 'CAR'  
   Select @VSTI_OPER_0002 = 'ABO'  
   Select @VSCO_CNTA_0001 = @VSCO_CNTA_GANA  
   Select @VSTI_AUXI_0001 = @VSTI_AUXI_REGA  
   Select @VSCO_AUXI_0001 = @VSCO_AUXI_REGA  
 End   
  
----- GRABA LINEA CORRESPONDIENTE AL DOCUMENTO  
 Insert Into TXMVTO_CNTB(CO_EMPR, NU_CNTB_EMPR, CO_UNID_CNTB, CO_OPRC_CNTB, NU_ANNO, NU_MESE, NU_ASTO, NU_SECU,   
 FE_ASTO_CNTB, CO_CNTA_EMPR, TI_AUXI_EMPR, CO_AUXI_EMPR, TI_DOCU, NU_DOCU, FE_DOCU, TI_CAMB,CO_MONE, FA_CAMB,   
 TI_OPER, IM_MVTO_ORIG, IM_MVTO_CNTB, DE_GLOS, SI_MVTO_CNTB, FE_DOCU_VENC, FE_PAGO, FA_CAMB_DIAR, FE_DOCU_REFE,   
 NU_PROC, NU_PROC_SECU, ST_GEST, ST_REDO, ST_AJUS_ORIG, CO_USUA_MODI, FE_USUA_MODI, CO_USUA_CREA, FE_USUA_CREA )      
 Values ( @ISCO_EMPR, @INNU_CNTB_EMPR, @CSCO_UNID_CNTB, @VSCO_OPRC_CNTB, @INNU_ANNO, @INNU_MESE, @VSNU_ASTO,   
 @VNNU_SECU, @VDFE_ASTO_CNTB, @CSCO_CNTA_EMPR, @CSTI_AUXI_EMPR, @CSCO_AUXI_EMPR, @CSTI_DOCU, @CSNU_DOCU, @CDFE_DOCU,   
 'PAC', @CSCO_MONE, 1.000000, @VSTI_OPER_0001, ABS(@CNTO_SALD), ABS(@CNTO_SALD), 'AJUSTE DE SALDO POR DOCUMENTO',   
 'APR', @CDFE_DOCU_VENC, @CDFE_PAGO, @VNFA_CAMB_DIAR, NULL, @VNNU_PROC, @VNNU_PROC_SECU, 'N', 'N', 'S',   
 @ISCO_USUA, @IDFE_USUA, @ISCO_USUA, @IDFE_USUA)  
  
 If @@ERROR != 0      
   Begin       
    Close CU_TXMVTO_CNTB_I50_1      
    Deallocate CU_TXMVTO_CNTB_I50_1      
    Rollback Transaction SP_TXMVTO_CNTB_I50      
    Return      
   End      
  
 Select @VNNU_SECU = @VNNU_SECU + 1  
  
----- FIN GRABA LINEA CORRESPONDIENTE AL DOCUMENTO  
 Insert Into TXMVTO_CNTB(CO_EMPR,NU_CNTB_EMPR,CO_UNID_CNTB,CO_OPRC_CNTB,NU_ANNO,NU_MESE,NU_ASTO,NU_SECU,  
 FE_ASTO_CNTB,CO_CNTA_EMPR,TI_AUXI_EMPR,CO_AUXI_EMPR,TI_DOCU,NU_DOCU, FE_DOCU, TI_CAMB, CO_MONE,   
 FA_CAMB, TI_OPER, IM_MVTO_ORIG,IM_MVTO_CNTB, DE_GLOS, SI_MVTO_CNTB, FE_DOCU_VENC, FA_CAMB_DIAR,       
 FE_DOCU_REFE, NU_PROC, NU_PROC_SECU, ST_GEST, ST_REDO,ST_AJUS_ORIG,  
 CO_USUA_MODI, FE_USUA_MODI, CO_USUA_CREA, FE_USUA_CREA )      
 Values ( @ISCO_EMPR, @INNU_CNTB_EMPR, @CSCO_UNID_CNTB, @VSCO_OPRC_CNTB, @INNU_ANNO, @INNU_MESE,       
 @VSNU_ASTO, @VNNU_SECU, @VDFE_ASTO_CNTB, @VSCO_CNTA_0001, @VSTI_AUXI_0001, @VSCO_AUXI_0001,      
 NULL, NULL, NULL, 'PAC', @VSCO_MONE_CNTB, 1.000000, @VSTI_OPER_0002, ABS(@CNTO_SALD), ABS(@CNTO_SALD),      
 'AJUSTE DE SALDO POR DOCUMENTO', 'APR', NULL, @VNFA_CAMB_DIAR, NULL, @VNNU_PROC, @VNNU_PROC_SECU,   
 'N', 'N','S', @ISCO_USUA , @IDFE_USUA, @ISCO_USUA,@IDFE_USUA)      
      
 If @@ERROR != 0      
   Begin       
    Close CU_TXMVTO_CNTB_I50_1      
    Deallocate CU_TXMVTO_CNTB_I50_1      
    Rollback Transaction SP_TXMVTO_CNTB_I50      
    Return      
   End      
  
End ---FIN If IsNull(Rtrim(Ltrim(@OSNU_ASTO_INTE)),'') != ''  
  
Fetch CU_TXMVTO_CNTB_I50_1 Into @CSCO_CNTA_EMPR, @CSTI_AUXI_EMPR, @CSCO_AUXI_EMPR, @CSTI_DOCU, @CSNU_DOCU,   
@CSCO_MONE, @CDFE_DOCU, @CDFE_DOCU_VENC, @CDFE_PAGO, @CNTO_SALD, @CSCO_UNID_CNTB, @CSCO_OPRC_CNTB, @CSNU_ASTO  
End      
  
Close CU_TXMVTO_CNTB_I50_1      
Deallocate CU_TXMVTO_CNTB_I50_1       
  
Commit Transaction SP_TXMVTO_CNTB_I50      
  
Return      
/*----------------------------------- Fin -------------------------------------*/  



GO
